home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: procset pdflev2 6.0 1
- %%Copyright: Copyright 1987-2001,2003 Adobe Systems Incorporated. All Rights Reserved.
- %%Title: PDF operators, with code specific for Level 2
- /docinitialize {
- PDF begin
- /_defaulthalftone currenthalftone dd
- /_defaultblackgeneration currentblackgeneration dd
- /_defaultundercolorremoval currentundercolorremoval dd
- /_defaultcolortransfer [currentcolortransfer] dd
- /_defaulttransfer currenttransfer dd
- end
- PDFVars /docSetupDone true put
- } bd
- /initialize {
- PDFVars /docSetupDone get {
- _defaulthalftone sethalftone
- /_defaultblackgeneration load setblackgeneration
- /_defaultundercolorremoval load setundercolorremoval
- _defaultcolortransfer aload pop setcolortransfer
- } if
- false setoverprint
- } bd
- /terminate { } bd
- /c /curveto ld
- /cs /setcolorspace ld
- /l /lineto ld
- /m /moveto ld
- /q /gsave ld
- /Q /grestore ld
- /sc /setcolor ld
- /setSA/setstrokeadjust ld
- /re {
- 4 2 roll m
- 1 index 0 rlineto
- 0 exch rlineto
- neg 0 rlineto
- h
- } bd
- /concattransferfuncs {
- [ 3 1 roll /exec load exch /exec load ] cvx
- } bd
- /concatandsettransfer {
- /_defaulttransfer load concattransferfuncs settransfer
- } bd
- /concatandsetcolortransfer {
- _defaultcolortransfer aload pop
- 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
- 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
- 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
- concattransferfuncs
- setcolortransfer
- } bd
- /defineRes/defineresource ld
- /undefineRes/undefineresource ld
- /findRes/findresource ld
- currentglobal
- true systemdict /setglobal get exec
- [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource /Image]
- { /Generic /Category findresource dup length dict copy /Category defineresource pop }
- forall
- systemdict /setglobal get exec
- /ri
- {
- /findcolorrendering isdefined?
- {
- mark exch
- findcolorrendering
- counttomark 2 eq
- { type /booleantype eq
- { dup type /nametype eq
- { dup /ColorRendering resourcestatus
- { pop pop
- dup /DefaultColorRendering ne
- {
- /ColorRendering findresource
- setcolorrendering
- } if
- } if
- } if
- } if
- } if
- cleartomark
- }
- { pop
- } ifelse
- } bd
- /knownColorants? {
- pop false
- } bd
- /getrampcolor {
- cvi
- /indx exch def
- 0 1 NumComp 1 sub {
- dup
- Samples exch get
- dup type /stringtype eq { indx get } if
- exch
- Scaling exch get aload pop
- 3 1 roll
- mul add
- } for
- setcolor
- } bd
- /sssetbackground { aload pop setcolor } bd
- %%EndResource
-